Feststellen, wo der Cursor steht

Den vollständigen Code für diese Beispiele finden Sie im Verzeichnis "Beispiel" in der Arbeitsmappe "Cursor" im Modulblatt "WoStehtDerCursor".

Angenommen, Sie wollen wissen, wo der Benutzer eines von Ihnen geschriebenen VBA-Programmes den Cursor hingesetzt hat-vielleicht hat das für den weiteren Ablauf Ihres Programmes eine Bedeutung.

KOMPLETTE ADRESSE

Die Adresse der Zelle, in der der Cursor steht, erfragen Sie mit Hilfe einer Eigenschaft des Window- und des Application­Objektes, der "ActiveCell"-Eigenschaft:

MsgBox ActiveCell.Address (external:=True)

Angenommen, der Cursor steht in Zelle A4 von "Tabelle1" der Arbeitsmappe "Mappe1". Dann ergibt dieser Befehl die Antwort:

[Mappe1]Tabelle1!$A$4

ZEILENNUMMER

Interessiert Sie nur die Nummer der Zeile, dann müssen Sie schreiben:

MsgBox ActiveCell.Row

SPALTENNUMMER

Hier lautet die Frage so:

MsgBox ActiveCell.Column

NAME DER TABELLE

Wenn Sie wissen wollen, in welcher Tabelle der Cursor steht, so müssen Sie den Wert der Eigenschaft "Parent" ("ÜbergeordnetesObjekt") der Eigenschaft "ActiveCell" erfragen:

MsgBox ActiveCell.Parent.Name

NAME DER ARBEITSMAPPE

Auch hier hilft die "Parent"-Eigenschaft, diesmal auf die Eigenschaft "ActiveSheet" des Window- oder Application-Objektes angewendet:

MsgBox ActiveSheet.Parent.Name

	Copyright © by JOANNEUM RESEARCH Forschungsgesellschaft mbH